Interactive Quarterly/The Best of New Machine Publishing 1 - Disc 4: Interactive Quarterly.iso/pc/demos/vvictor/vvdemo.dir/00619.ls

Text File | 1996-08-22 | 2.8 KB | 111 lines

on exitFrame
  global Copies1, SUBTOTAL1, TAX1, TOTAL1, NJ1, shipping1, DOB
  if the text of cast 470 = 1 then
    set SUBTOTAL1 to 1 * "48.99"
  end if
  if the text of cast 470 = 2 then
    set SUBTOTAL1 to 2 * "48.99"
  end if
  if the text of cast 470 = 3 then
    set SUBTOTAL1 to 3 * "48.99"
  end if
  if the text of cast 470 = 4 then
    set SUBTOTAL1 to 4 * "48.99"
  end if
  if the text of cast 470 = 5 then
    set SUBTOTAL1 to 5 * "48.99"
  end if
  if the text of cast 470 = 6 then
    set SUBTOTAL1 to 6 * "48.99"
  end if
  if the text of cast 470 = 7 then
    set SUBTOTAL1 to 7 * "48.99"
  end if
  if the text of cast 470 = 8 then
    set SUBTOTAL1 to 8 * "48.99"
  end if
  if the text of cast 470 = 9 then
    set SUBTOTAL1 to 9 * "48.99"
  end if
  if the text of cast 470 = 10 then
    set SUBTOTAL1 to 10 * "48.99"
  end if
  if the text of cast 470 = 11 then
    set SUBTOTAL1 to 11 * "48.99"
  end if
  if the text of cast 470 = 12 then
    set SUBTOTAL1 to 12 * "48.99"
  end if
  if the text of cast 470 = 13 then
    set SUBTOTAL1 to 13 * "48.99"
  end if
  if the text of cast 470 = 14 then
    set SUBTOTAL1 to 14 * "48.99"
  end if
  if the text of cast 470 = 15 then
    set SUBTOTAL1 to 15 * "48.99"
  end if
  if the text of cast 470 = 16 then
    set SUBTOTAL1 to 16 * "48.99"
  end if
  if the text of cast 470 = 17 then
    set SUBTOTAL1 to 17 * "48.99"
  end if
  if the text of cast 470 = 18 then
    set SUBTOTAL1 to 18 * "48.99"
  end if
  if the text of cast 470 = 19 then
    set SUBTOTAL1 to 19 * "48.99"
  end if
  if the text of cast 470 = 20 then
    set SUBTOTAL1 to 20 * "48.99"
  end if
  if the text of cast 470 = 21 then
    set SUBTOTAL1 to 21 * "48.99"
  end if
  if the text of cast 470 = 22 then
    set SUBTOTAL1 to 22 * "48.99"
  end if
  if the text of cast 470 = 23 then
    set SUBTOTAL1 to 23 * "48.99"
  end if
  if the text of cast 470 = 24 then
    set SUBTOTAL1 to 24 * "48.99"
  end if
  if the text of cast 470 = 25 then
    set SUBTOTAL1 to 25 * "48.99"
  end if
  if the text of cast 470 = 10 then
    set SUBTOTAL1 to 10 * "48.99"
  end if
  put SUBTOTAL1 into field "subtotal"
  if the text of cast 467 = "NJ" then
    set TAX1 to SUBTOTAL1 * 0.06
  else
    if the text of cast 467 = "N.J." then
      set TAX1 to SUBTOTAL1 * 0.06
    else
      if the text of cast 467 = "N J" then
        set TAX1 to SUBTOTAL1 * 0.06
      else
        if the text of cast 467 = "New Jersey" then
          set TAX1 to SUBTOTAL1 * 0.06
        else
          set TAX1 to TAX1 + 0
        end if
      end if
    end if
  end if
  if the text of cast 474 = "5.00" then
    set shipping1 to "5.00"
  end if
  if the text of cast 474 = "5.00" then
    set shipping1 to "5.00"
  end if
  put TAX1 into field "tax"
  if the text of cast 486 > 79 then
    go("dob")
  end if
  go(the frame)
end